(define i 0)
(define p 0)
(define c 1)

(define test
  (function (x)
    (if(= i x)
      (do
        (define i 0)
        (define p 0)
        (define c 1)
      )
      (do
        (define np c)
        (define nc (+ p c))
        (define p np)
        (define c nc)
        (write c)
        (define i (+ i 1))
        (test x)
      )
    )
  )
)

(define run
  (function ()
    (do
      (write "How many Fibbonocci numbers would you like me to calculate?")
      (display ">> ")
      (define num (input))
      (if (= num "exit")
        (write "")
        (do
          (define num (->num num))
          (test num)
          (run)
        )
      )
    )
  )
)

(run)
